Sub 匹配赋值()
'数组+单元格
Dim arr()
Dim i%, j%
arr = Range("l2:n17")

For i = 3 To 87
    For j = 1 To UBound(arr)
        If Cells(i, 3) = arr(j, 1) Then
            Cells(i, 5) = arr(j, 3)
            Cells(i, 4) = arr(j, 2)
        End If
    Next j
Next i

End Sub
